190 READ V$: IF V$ = "END" THEN PRINT : PRINT CHR$(7);"UNKNOWN PRODOS VERSION": END
200 READ A1,A2,A3,A4,A5,A6,A7:I = 1
210 IF PEEK(A1 +I -1) < > ASC( MID$ (V$,I,1)) +128 THEN 190
220 IF I < LEN(V$) THEN I = I +1: GOTO 210
230 IF PEEK(A1 +I) < >160 THEN 190
240 READ X$: IF X$ < >"END" THEN READ X,X,X,X,X,X,X: GOTO 240
250 DATA "1.0",9358,8587,0,19423,0,8907,57
260 DATA "1.0.1",9377,8606,0,19441,0,8926,57
270 DATA "1.0.2",9377,8606,0,19453,0,8926,57
280 DATA "1.1.1",9458,8755,0,19463,0,8982,57
290 DATA "1.2",9740,8858,0,19912,8921,9261,56
300 DATA "1.3",9751,8858,0,19956,8921,9261,56
310 DATA "1.4",9751,8858,0,19956,8921,9261,56
320 DATA "1.5",9751,8855,0,19985,8918,9261,57
330 DATA "1.6",9751,8855,0,19985,8918,9261,57
340 DATA "1.7",9751,8855,0,19980,8918,9261,57
350 DATA "1.8",9762,8866,0,20235,8929,9272,57
360 DATA "1.9",9809,8887,8895,20235,8958,9301,68
370 DATA "END"
380 REM
390 REM PATCH PRODOS
400 REM
410 POKE A2,15: POKE A4,15: IF A3 >0 THEN POKE A3,15: POKE A3 +2, PEEK(A2 +2): REM CHANGE LENGTH OF QUIT CODE FROM 3 TO 15 PAGES
420 P = 256 * PEEK(A2 +2):E = P +3839: REM DETERMINE ADDRESS OF CURRENT QUIT CODE, WHERE INSTALLATION TAKES PLACE
430 IF A5 >0 THEN E = E +125:C = PEEK(A5) *256: FOR I = 0 TO 124: POKE P +3840 +I, PEEK(C +I): NEXT I: POKE A5, INT((P +3840)/256): REM MOVE IIGS CLOCK DRIVER OUT OF THE WAY
440 POKE A6,56: POKE A6 +1,176: POKE A6 +2,A7 -3: POKE A6 +3,234 *( PEEK(A6 +3) >0): POKE A6 +4,56: POKE A6 +5,176: POKE A6 +6,A7 +3: FOR I = 0 TO 29: READ X: POKE A6 +A7 +I,X: NEXT I: REM PATCH ".SYSTEM" LOADER
450 DATA 173,0,192,201,149,240,3,76,0,32
460 DATA 169,4,133,128,169,0,162,6,149,129,202,16,251,32,0,191,101,128,0,0